home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / SUB_EX.BAS < prev    next >
BASIC Source File  |  1988-09-17  |  369b  |  17 lines
  1. '
  2. ' *** SUB1_EX.BAS - SUB statement programming example
  3. '
  4. INPUT "File to be searched";F$
  5. INPUT "Pattern to search for";P$
  6. OPEN F$ FOR INPUT AS #1
  7. DO WHILE NOT EOF(1)
  8.    LINE INPUT #1, Test$
  9.    CALL Linesearch(Test$,P$)
  10. LOOP
  11.  
  12. SUB Linesearch(Test$,P$) STATIC
  13.    Num = Num + 1
  14.    X = INSTR(Test$,P$)
  15.    IF X > 0 THEN PRINT "Line #";Num;": ";Test$
  16. END SUB
  17.